home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1006_EditText < prev    next >
Encoding:
Text File  |  1990-03-23  |  901 b   |  42 lines
  1. %case window field%
  2.     %HandleName%:%    %TEHandle;
  3. %case create%
  4.     SetRect (bounds, %left%, %top%, %right%, %bottom%);
  5.     %HandleName% := TENew (bounds, bounds);
  6.     TEAutoView (true, %HandleName%);
  7. %case dispose%
  8.     TEDispose (%HandleName%);
  9. %case mousein%
  10.     if PtInRect (where, %HandleName%^^.viewRect) then begin
  11.         if text <> nil then begin
  12.             TEDeactivate (text);
  13.         end;
  14.         text := %HandleName%;
  15.         TEActivate (text);
  16.         TEClick (where, false, text);
  17.     end;
  18. %case update%
  19.     TEUpdate (thePort^.portRect, %HandleName%);
  20. %case activate%
  21. %case track%
  22. %case itemNr%
  23.     %defineItem%
  24. %case dialog field%
  25.     %fieldName%:%    %Str255;
  26. %case init field%
  27.     %fieldName% := '';
  28. %case auxiliary%
  29. %case filter%
  30. %case set%
  31.     SetDText (%itemname%, %fieldName%);
  32. %case hit%
  33.     %if not disabled%
  34.         %itemname%: begin
  35.             GetDText (itemNr, %fieldName%);
  36.         end;
  37.     %endif%
  38. %case finish%
  39.     %if disabled%
  40.         GetDText (itemNr, info->%fieldName%);
  41.     %endif%
  42.